-- $LastChangedDate: 2007-06-01 02:52:33 +0200 (Fri, 01 Jun 2007) $
-- $LastChangedRevision: 149 $
-- $LastChangedBy: vicente $

-- package para la definicion de tareas cliente

-- packages del gimnasio
WITH Tareas.Gmonitores;
USE Tareas.Gmonitores;
WITH Tareas.Gaparatos;
USE Tareas.Gaparatos;

PACKAGE Tareas.Cliente IS

   TYPE Cliente;
   TYPE ClientePtr IS ACCESS ALL Cliente;

   TASK TYPE Cliente (Datos: Datosclienteptr; Gm: GMonitoresPtr; Ga: GAparatosPtr);
   -- el cliente necesita saber quien es el gestor de monitores y
   -- quien es el gestor de aparatos
   -- tambien necesitamos saber sus caracteristicas

   FUNCTION Crear_Cliente RETURN DatosclientePtr;

END Tareas.Cliente;
